Imports System.Net
Imports System.IO
Imports System.Text

Public Class WebHead

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myhttpWebRequest As HttpWebRequest
        Dim myhttpWebResponse As HttpWebResponse
        Dim colWebHeaderCollection As New WebHeaderCollection()

        myhttpWebRequest = CType(HttpWebRequest.Create(TextBox4.Text), HttpWebRequest)
        myhttpWebResponse = CType(myhttpWebRequest.GetResponse(), HttpWebResponse)
        colWebHeaderCollection = myhttpWebResponse.Headers
        TextBox1.Text = myhttpWebResponse.Headers.ToString
        TextBox2.Text = myhttpWebResponse.LastModified.ToString()
        TextBox3.Text = myhttpWebResponse.ProtocolVersion.ToString()
        TextBox4.Text = myhttpWebResponse.ResponseUri.ToString

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        MenuUtama.Show()
    End Sub
End Class
